home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / swapdr.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  28 lines
  1. 10 PRINT"[147][158]         [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
  2. 30 [153]"               DRIVE CHANGER
  3. 50 PRINT"         [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  4. 70 [133]"     FIRST DRIVE NO. TO CHANGE";D1
  5. 90 [133]"    SECOND DRIVE NO. TO CHANGE";D2
  6. 110 [133]"    THESE WILL SWAP NUMBERS OK";Y$
  7. 130 [139] Y$[179][177]"Y" [167] [153]"      CAN'T DO MORE":[128]
  8. 150 D3[178]12
  9. 160 DC[178]D1:DR[178]D3:P[178]1
  10. 161 [139] P[178]2 [167] DC[178]D2:DR[178]D1
  11. 162 [139] P[178]3 [167] DC[178]D3:DR[178]D2
  12. 163 [139] P[178]4 [167] [153] "SYS     CHANGED !":[137]600
  13. 170 [159] 1,DC,15
  14. 190 [152]1,"M-R"[199](0)[199](192)[199](1):[161]#1,A$:[160] 1
  15. 210 [139] [198](A$)[178] 192 [167] [137] 530
  16. 370 [137]490
  17. 430 :
  18. 450 :
  19. 470 :
  20. 490 [159] 15,DC,15
  21. 500 [152]15,"M-W"[199](119)[199](0)[199](2)[199](DR[170]32)[199](DR[170]64):[160] 15
  22. 510 P[178]P[170]1:[137]161
  23. 530 [159] 15,DC,15
  24. 540 [152]15,"U0>"[170][199](DR):[160] 15
  25. 550 P[178]P[170]1:[137]161
  26. 600 [153]"   THIS WILL BE IN EFFECT UNTIL THEWAIT               DRIVES ARE WAIT  RESET
  27. 605 PRINT:PRINT"  [158]SOME PROGRAMS DO THIS SO WATCH OUT !!":END
  28.